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*eF ILE**1D**MTHGACOS 
MM MM TTTTTTTTTT HH HH GGGGGGGG AAAAAA cccccccc 000000 SSSSSSSS 
‘sla MM TTTTTTTTTT HH HH GGGGGGGG AAAAAA cccccccc 000000 SSSSSSSS 
MMMM MMMM TT HH HH GG AA AA CC 00 00 SS 
MMMM MMMM TT HH HH GG AA AA CC 00 00 SS 
“a 60MM OMM TT HH H GG AA AA CC 00 oo SS 
wm 6M OAM TT HH HH GG AB AA CC 00 00 SS 
Lala MM TT HHHHHHHHHH §=GG AA AA CC 00 00 SSSSSS 
lal MM TT HHHHHHHHHH §=GG AA AA CC 00 00 SSSSSS 
MM MM TT HH HH GG GGGGGG AAAAAAAAAA (CC 00 00 S$ 
MM MM TT HH HH GG GGGGGG AAAAAAAAAA (CC 00 00 SS 
Lala MM TT HH HH GG GG AA AA CC 00 00 SS cece 
MM MM TT HH HH GG GG AA AA CC 00 00 SS eoee 
MM MM TT HH HH GGGGGG AA AA cccccccc 000000 SSSSSSSS cece 
MM MM TT HH HH GGGGGG AA AA ccccccce 000000 SSSSSSSS eoee 
LL III11 SSSSSSSS 
LL W111! SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLELLLLLLLLE III] SSSSSSSS 
LLLLLLLLLL W111! SSSSSSSS 
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TITLE MTHS$GACOS Fieeting Point Arc-cosine routine 
COS ,GACOSD) 


a 
- IDENT /1-006/ : Fite: ATHGACOS.MAR EDIT: RNH1006 


SREARAAAEAEE AEA AAA AAA AAAAAAAAAAAAAAAEAAAAARAAAAAAAAAAAAAAAAAAARERAAEAAAAE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT _GORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVE 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN Moe NCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ride THE ABOVE Sg tlh NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES T NEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* ® 
*® ® 
*® ® 
*® ® 
:® * 
** oa 
*® ® 
°* ® 
*® ® 
:® ® 
:® TRANSFERRED. : 
‘* ® 
bad ® 
*® e 
** * 
: ® 
*® ® 
:® ® 
** ® 
°@ ® 
** ® 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


PARAAARAAASAALALAAAALALALEASALALELLAA LEELA RARER ERR RARE ARERR RRA AAAS AAS SD OS 


; b FACILITY: MATH LIBRARY 
; : ABSTRACT: 


; MTHS$GACOS is a function which returns the G Hipeting pgine arc-cosine 


; in radians of its G floating point argument. The call is standard 


; call-by-reference. 


; MTHS$GACOSD is a function which returns the G float tng point arc-cosine 


; in degrees of its G floating point argument. The call is standard 


; call-by-reference. 

: ; VERSION: 1 

; S HISTORY: 

; AUTHOR: 

; Steven B. Lionel, 15-Jan-79: Version 1 
: ; MODIFIED BY: 


ROOD NOAUE WIN = O OONAUES WN 9 OODNAUE WIN $$ O OONOAOUE WI OOONOUM 


DUDES BB BB BBE HS EWN IWIN NIIP PIPODPONPONINUNINIDD 2 2 OO Oe 


BTNSGACOS : § a ting Point Arc-cosine rou Wine 19"3 atts 9 91:64:9) AX/VMS Macro V04-00 


-SEP-1 MTHRTL.SRC RCIM THGACOS .MAR; 1 
-SBTTL HISTORY ; Detailed Current Edit History 


; ALGORITHMIC DIFFERENCES FROM FP-11/C ROUTINE: none 
; Edit History for Version 1 of MTH$GACOS 


PEAS UIMIVIVW 
NOUS WNOOONOUS 


; 1-001 = Adapted from MTHSDACOS nBEACOS” 1-001. L 15-Jan-79 

3 1- § - change JSB antry to MTH$GACOS_R7 REG =Sept-1979 

3 I= - Added degree entr —netate- RNH 22-™ 981 

3; 1-004 = Modified sareytet ie oft = x* af? oman loss of significance 
: for iXi>=1/2. RNH 02-Sept-198 

; IwRh2 = Changed shared external -o. ential to G*. RNH 02-Oct-81 

; 1-006 = Eliminated symbolic short Literals. RNH 15-Oct-81 


; Page ‘I 


NOUS WN —OO 
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MTHSGACOS ; G Floating Point Arc-cosine routine 16-SEP-1984 01:24:21 VAX/VMS Macro Vv04-00 P al 
1-006 BECLARATIONS 3 beclorat ive Part of Modul mets 7 9433332 ERTARTL. SREIATNGACOS MAR: 1 nat 3) 1: 
29 ~SBTTL DECLARATIONS ; Declarative Part of Module 
13 
Ye : INCLUDE FILES: OTSPARAMS .MAR 
0 oh : EXTERNAL SYMBOLS: 
7 e 
8 -OSABL GBL 3 force undefineds to error 
00 8 sEXTRN MTHSGATAN_R7 3 arctangent routine 
0 7 ~EXTRN MTHSGATAND_R7 3 arctangent routine 
} 0 .EXTRN MTH T_RS 3 square root routine 
1 .EXTRN MTHSSSIGNAL 3 math signal routine 
444 ¢ eEXTRN MTHSK_INVARGMAT : Error code 
000 
000 se 
00000004 $09 Hn value =4 ; value.rg.r 
0000 6? ; bes 
44 8; 
it 4 3; MACROS: none 
0900 31 > PSECT DECLARATIONS: 
00000000 38 -PSECT _MTHSCODE PIC,SHR,LONG, EXE ,NOWRT 
000 3¢ : 3 program section for math routines 
0 %6 : OWN STORAGE: none 
0 97 ; 
98 ; 
4 : CONSTANTS: 
0 G_PI_OVER_ 2: 
2018 5444 21FB 4019 8 -BORD *0040031, *0020773, “0052106 , , O02H430 
0 
$8 
10 
11 


SOooooooooooooo 
3 | OOOOSOSOOOSOSo 
WWDOOCCHMDDBOOCSCSSSo 

a a a a te 


SOOOooooooooooooooo 


G_PI: 
2018 5444 21FB 4029 <s «WORD 0040051, *0020773, eat tt “0026430 
6_90: : 
00000000 80004076 5 tok -LONG “%X80004076, “x0 ; 90 
00000000 80004086 - "LONG —*X80004086, *x0 ; 180 


; EQUATED SYMBOLS: 
| 
| 
| 


—$—$—$$___, rr 


MTHSGACOS 
1-006 


c 3 
nt Arc-cosine routine V6-SEP-1984 01:34:21 AX/VMS Macro V04-00 Page 4 MT 
ndard G Floating GACOS =SEP=1984 11:23:16 CMTHRTL.SRCIMTHGACOS.MAR; 1 (4) La 


~SBTTL MTHSGACOS = Standard G Floating GACOS 


ow 


++ 

FUNCTIONAL DESCRIPTION: 

; GACOS = G floating point function 
; GACOS(X) is computed as: 


If X = 0, then GACOS(X) = PI/2. 

If X = then GACOS(X) = 0. 

If X = -1, then GACOS(X) = PI. 

IfO<x< then GACOS(X) = ATAN(SQRT(1=-xX**2)/X) 

If 1/2 =< xX < {, then GACOS(X) = ATAN(SQRT((1-X)#(14x))/X). 

If -1/2 < K < 0, then GACOS(X) = ATAN(SQRT(1=-X*##2)/X 

if 4B, : =< -1/2, then GACOS(X) = ATAN(SQRT((1-X)#(14x))/X) + PI 
iXi, error. 


; CALLING SEQUENCE: 
gacos.wg.v = MTHSGACOS(x.rg.r) 
; INPUT PARAMETERS: 


LONG = 4 3; define rt multiplier 
x = 1 * LONG ; Contents of x is the argument 


IMPLICIT INPUTS: none 
OUTPUT PARAMETERS: 
VALUE: G floating arc-cosine of the argument 
IMPLICIT OUTPUTS: none 
COMPLETION CODES: none 
SIDE EFFECTS: 
; Signals: MTHS_INVARGMAT if iX: > 1 with reserved operand in RO/R1 (copied 


00000004 
00000004 
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54 ; to the signal mechanism vector CHFSL_MCH_RO/R1 by LIBSSIGNAL). 
5 Associated message is: ‘INVALID ARGUMENT”. Result is reserved operand -0.0 
8 ; unless a user supplied (or any) error handler changes CHFSL_MCH_RO/R1. 
0 NOTE: This procedure disables floating point underflow, enables integer 
0 2 overflow. 
61 eoee 
63 
40FC 64 -ENTRY MTHSGACOS, “M<IV, R2, R3, R4, RS, R6, R7> 
65 3 standard cali-by-reference entry 
06 3 disable DV (and FU), enable | 
6 MTHSFLAG_JACKET : flag that this is a jacket procedure in 
6D Q0000000'GF 9€ MOVAB G*MTHSSJACKET_HND, (FP) 


MTHSGACOS 
1-006 


d 5 
ing Point Arc-cosine routine 
= Standard G Floating GACOS 


16S 


EP-19 


6-SEP=19 


OVG @value(AP) 
S88 MTHSGACOS_R7 


RO 


4 01 
4 11 


HP AX/VMS Macro V04-00 Page 5 
7:23:16 CMTHRTL.SRCIMTHGACOS.MAR; 1 (4) 
3; set handler address to jacket 

; handler 


case of an error in routine 

If an error, convert signal to user PC 
and resigna 

RO/R1 = {Xi = @value(AP) 

call special GACOS routine 

return with result in RO/R1 


PS, 


ee. 
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1-006 ATHSGACOS_R? = Special GACOS routine -SEP-1984 91 :33:% MTHRTL.SRCIMTHGACOS .MAR; 1 ° 
! 178 -SBTTL MTHSGACOS_R7 = Special GACOS routine 
\ 178 ; Special GACOS = used by the standard routine and direct JSB call. 
1 180 ; CALLING SEQUENCE: 
' 304 save anything needed in RO:R7 
aay t § 3 G sic We ; input in RO/R1 
1 183; JSB MTHS$GACOS_R7 
} } ¢ $ RSB 3 return with result in RO/R1 
1 186° 
6 a. os $ MTHSGACOS_R7:: 3; special GACOS routine 
1 1 8 MTHSGACOS _R9:: ; Release 1 name 
56 50 SOFD 0031 1 VG RO, R6 3 save X in R6/R7 
05° 12 00 5 190 BNEQ  TEST_FOR_1.0 > branch if ix! > 0 
09 7 136 3 
037 193; x=0 
Bir 1g 
50 CO AF 7D 0037 196 MOVQ G_PI_OVER_2, RO ; RO/R1 = PI/2 
05 0038 19 RSB 3; return PI/2 if ix! = 0 
003C 198 
003C 199; 
003C¢ 00; 0< ix! 
sie gh 
003C $8 TEST_FOR_1.0: 
50 8000 8F AA 003C 04 Bicw #*x8000, RO ; RO/R1 = IX! 
08 50 51FD 0041 05 CMPG # 3 compare {Xi with 1.0 
36° «18 «460045 «= 206 BGEQ  GEQ_T0_1.0 : branch if !X! >= 1.0 
0047 07 
0047 08 ; 
0047 09: 0< Ix! < 1.0 
Soe? 54h 
50 4000 8F B81 0047 \ CMPW #*x4000, RO ; Check for possible loss of 
F 14 poet 1 BGTR s Sara ieenee 
52 8 0 43FD 4 14 SUBG RO, #1, R2 3; R2/R5 = 1 - X 
0 8 40FD Ope 15 ADDG #1, RO ; RO/R1 = 1+ X 
50 2 44FD 005 18 MULG R2, RO 3: RO/R1 = 1 = X*2 
9 11 Ones 1 BRB 2$ 3; Join main flow 
5 4 44FD 005D \8 1$: MULG Re. RO : RO/R1 = Xee2 
50 OQ 43FD 61 1 SUBG RO, #1, RO 3 RO/R1 = 1.0 = Xe22 
00000000°GF 16 0066 0 28: JSB G*ATHSGSQRT_RS > RO/R1 = GSQRT (1-x¥02) 
50 6 46FD $ 1 DIVG2 R6, RO s RO/R1 = GSQRT(1-X#22)/X 
DD 00 § PUSHL R 3; save sign of X for sign test 
00000000 * GF 7 7 JSB G*MTHSGATAN_R7 : RO/R1 = GATAN(GSQRT(1-X*#2)/X) 
56 i i) 7 4 MOVL (SP)+, R6 3 restore sign of X 
. a BRB TEST_SIGN : branch to TEST_SIGN 
70 3 
70 3 s 1 s¢< txt 
te 580° 
7D 1 GEQ_T0_1.0: 
OE 14 7D 2 BGTR ERROR 3 branch to ERROR if :Xi > 1.0 


F 
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1-006 ATHSGACOS_R? = Special GACOS routine pat 94:59:%% MTHRTL.SRC JMTHGACOS .MAR; 1 ° (5) 
rr 3 
F 4 
oF SRR Eoin: = 1.0 
3; int et. 
7F 5 3 
7F 8 
~~ OU 4 is CLRQ RO 3; RO/R1 = 0 
0 ! rt 
6 1 ‘§ ; Test the sign of X in order to decide if add PI to the result 
6 1 45 
081 46 TEST_SIGN: 
56 53FD 0081 4 TSTG R6 ; test the sign gt x 
06 18 Obe 8 BGE 10$ 3; branch if xX > 
50 FF7D CF se 086 4 ADDG2 G_PI, RO 3; add PI to RO/R1 if xX < 0 
0 O8C 50 10$: RSB 3 return with result in RO/R1 
08D 51 
08D 26 3 
OOD 53; 1< iX!, error 
08D 54 ; 
843 55 
6— 0D 008D 56 ERROR: PUSHL (SP) ; return PC from JSB routine 
7E OO°8F 9A OOes 57 MOVZBL #MTHSK_INVARGMAT, -(SP) ; condition value 
50 01 OF 79 0093 58 ASHQ = #15, #T, RO ; RO = result = reserved operand -0.0 
0097 59 : pees to signal mechanism vector 
0097 60 ; CUCHFSL_MCH_RO/R1) so error handler 
0097 61 3 can modify the result. 
00000000'GF 02 FB 0097 6¢ CALLS #2, G*MTHSSSIGNAL 3; signal error and use real user's PC 
E 6 3; independent of CALL vs JS 
ee RSB 3; return - RO restored from CHFSL_MCH_RO/R1 


MTHSGACOS 
1-006 


6D 


00000004 
00000004 


00000000 ' GF 


40FC 


9E 


MN tS | QOD DOOO9 00000 OOOO 00009 09 0909 09 090909 SIN I NINN NNO Or 
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tandard G Floating GACOSD aati ts 91:83:44 MTHRTL.SRCIMTHGACOS.MAR; 1 mors | ¥ 
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-SBTTL MTHSGACOSD = Standard G Floating GACOSD 
ae 

FUNCTIONAL DESCRIPTION: 

GACOSD = G floating point function 

GACOSD(X) is computed as: 
0, then GACO 


SD (Xx 
1, then GACOSD(X 
-{, then s0( 


MAH HH 
A 

>. 

cad 

zs 

® 

S 


GATAND (SQRT(1-X*#2)/X). 
= GATAND(SQRT((1-X)#(1+ 
= GATAND(SQRT(1<X*#2)/X) 
(X) = GATAND(SQRT((1-xX) #( 


x)) 
+ 
+ 


AOoow~ 
>oo-~ 


< x 

xX < 0, then GACO 
X =< -1/2, then G 
< xt, error. 


CALLING SEQUENCE: 


/X). 
180. 
»)/X) + 180. 


14x 


os Os Fs Pe Ot Hs Oe 


IN 
—tt-Oxx x 


GACOSD.wg.v = MTHSGACOSD(x.rg.r) 
INPUT PARAMETERS: 


LONG = 4 ; define re multiplier 
x = 1 * LONG ; Contents of x is the argument 


IMPLICIT INPUTS: none 
OUTPUT PARAMETERS: 
VALUE: G floating arc-cosine of the argument 
IMPLICIT OUTPUTS: none 
COMPLETION CODES: none 
SIDE EFFECTS: 
Signals: MTHS_INVARGMAT if {Xi > 1 with reserved operand in RO/R1 (co180ed 
to the signal mechanism vector CHFSL_MCH_RO/R1 by LIBSSIGNAL). 
Associated message is: "INVALID ARGUMENT™. Result is reserved operand -0.0 
unless a user supplied (or any) error handler changes CHFSL_MCH_RO/R1. 


NOTE: This procedure disables floating point underflow, enables integer 
overflow. 


~-ENTRY MTHSGACOSD, “M<IV, R2, R3, R4, RS, RE, R7> 
3 standard call-by-reference entry 
; disable DV (and FU), enable IV ; 
MTHSFLAG_JACKET ; flag that this is a jacket procedure in 


MOVAB G*MTHSSJACKET_HND, (FP) 
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MTHSGACOS ng Point Arc-cosine routine 16-SEP-1984 01:24:21 VAX/VMS M v04- P 
1-006 . Seer obe $1:58;46 Re Seriicacos SJ 


oati 6 
COSD = Standard G Floating GACOSD 6- 1 MTHRTL.SRCIMTHGACOS .MAR; 1 (6) 


at 

os 

A ; set handler address to jacket 
A handler 

A 

A 

A 

AB 

AD 


case of an error in routine 

If an error, convert signal to user PC 
and resigna 
RO/R1 = {Xi = @value (AP) 
call special GACOSD routine 
return with result in RO/R1 


Se te Ge Ge Ge Ge 


53 

4 

5 MOVG @value(AP), RO 
§ BSBB MTHSGACOSD_R7 
5 RET 


es 
MTHSGACOS ; G Floating Point Arc-cosine routine 16-SEP-1984 01:24:21 VAX/VMS Macro VO 
1-006 ATHSGACOSD. 27 = Special GACOSD routine pan ett 94 :33:% MTHRTL.SRCIJMTH 


-SBTTL MTHSGACOSD_R7 = Special GACOSD routine 
: Special GACOSD - used by the standard routine and direct JSB call. 


4-00 Page 
GACOS.MAR; 1 


; CALLING SEQUENCE: 
; save anything needed in RO:R7 


MOVG w+, RO 
JSB ATHSGACOSD_R7 
RSB 


input in RO/R1 
return with result in RO/R1 


DHHOSDODOHO DODO DDD DD 


4 
‘ 
rf MTHSGACOSD_R7 ial GACOSD i 
33 ; specia routine 
56 6= 550 50F8 ‘3 MOUG RO, R6 3 sous X in R6/R7 
06° 1 4 43 BNEQ D_fEST_FOR_1.0 > branch if ix! > 0 
6 45; 
6 #6 3; x20 
6 47 ; 
6 rh: 
50 FFS6 CF 7D 6 4 MOva 6.90, RO ; RO/R1 = 90 
0088 50 RSB 3: return 90 if ix! = 0 
OBC 2) 
OBC § ; 
OBC 53; 0< ix! 
pret 54; 
0BC 55 
Boer 2$ D_TEST_FOR_1.0: 
50 8000 8F AA O00BC 5 Bitw #*x8000, RO ; RO/R1 = IX! 
08 50 51FD 00C1 28 CMPG RO, # : compare {X! with 1.0 
36° 18 00C5 BGEQ 0_GEQ_T0_1.0 : branch if !X! >= 1.0 
bors 60 
0C7 61; 
D0C7 66 ;0< iki < 1.0 
oe? 3ea 
t 
50 4000 8F 81 00C7 65 CMP #*x4000, RO : Check for possible loss of 
oF 14 OOCC § BGTR | Val pa 
52 8 0 43FD O0C 6 SUBG RO, #1, R2 ; R2/R5 = 1 - X 
0 2 40FD 00D 68 ADDG ~ RO ; RO/R1 = 1+ X 
0 44FD 00D +4 MULG - RO s RO/R1 = 1 = x*2 
2 11 00D8 0 BRB 3; Join main flow 
50 8 44FD O0DD 71 1$: MULG RO, RO : RO/R1 = Xe*2 
50 8 50 43FD O0E1 i SUBG RO, #1, RO : RO/R1 = 1.0 = Xee2 
‘GF 16 0066 373 28: JSB G*ATHSGSQRT_RS : RO/R1 = GSQRT(1-xX*#2) 
6 46FD OOEC 74 DIVG2 R6, RO 3 RO/R1 = GSQRT(1-Xe"#2)/Xx 
6 oD F 75 PUSHL R 3; save sign of X for sign test 
sees > adh 8 F 6 JSB G*MTHSGATAND_R7 3: RO/R1 = GATAND(GSQRT(1-xXe2#2)/X) 
56 3 D F 7 MOVL (SP)+, R6 3 restore sig of Xx 
07 «(11 FB 28 BRB D_TEST_SIGN : branch to 6_TEST_SIGN 
FD o 3 
FD 13 1 2¢ ix! 
FD § 3 
FD 
FD 4 0_GEQ_T0_1.0: 
03 13 OOFD 5 BEQL 108 
FF 31 FF 6 BRW ERROR : branch to ERROR if {xi > 1.0 
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6 55 
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$5°87"e thyprcos BROS outing — SosEPotobe 41:59:46 PMTHRTS. SAE IATNGACOS MAR: 1 


PONE BPEL EPP PPINN 


O$: CLRQ RO ; RO/R1 = 0 


Test the sign of X in order to decide if add 180 to the result 


400 D_TEST_SIGN: 


TSTG R8 3 test the sign f x 

BGEQ 10$ 3 or ane® if x 

ADDG2 G_180, RO 3; add 180 to *Ro/RI if x <0 
10$: RSB 3 return with result in RO/R1 


PPL LL ES 
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MTHSGACO : G Floating Point Arc-cosine routine 16-SEP-19 1: AX/VMS Macro V04-00 Page 1 
Symbo ® g-8 sett oi $33 % MTHRTL.SR RCM MTHGACOS ..MAR; 1 ° 18) 
i) 
5 
ERR 
GE 


DBDDBDDDDDAD 
fo leleleleolelaleal a) 
2 


=O, 
vv 


geereeee 


$I x 
THSGACOS go RG 
MTHSGACOSD F RG 
MTHSGACOSD_R7 0 RG 
MTHSGACOS_R7 1 RG 
MTHSGACOS RY 1 RG 
MTHSGATAND_R7 


eeeeeeee xX 
ATHSCATAN.R? eeeeeere xX 
MTHSGSQRT RS eereeeee xX 
MTHSK we ee eeererer xX 


MESJACKET _HND eeereree x 
$S1GNAL™ 
0 
44444 CR 0 
TEST T7sich ittett fb 0 
VALUE = 00000004 


—=DO00] 3 | 3 =43O— 


PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 a: 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_MTHSCODE 00000110 ( 27 ‘ PIC USR CON RE. LCL SHR EXE RD NOWRT NOVEC LONG 


Boon ow ene se weet ese eon awe ees $ 


Phase Page faults CPU Time Elapsed Time 
Initialization 33 : 8-1 9: 0:00.63 
se processing yt 700: 9 -$¢ 3 703. r 
Syabol eeble sort % 09:00:01 09-01 
Symbol table output 4 :00:00. 3 00:00. 3 
Psect synopsis output :00:00. 0:00:00. 

Cross-reference output :00: 9-98 3: :00.00 
Assembler run totals 32 0:00:02. :00:11. 


etS*Bytes (t t Limit was 1050 pages. 
6154 bytes (12 pages) of virtual memory were used to buf fee the saneraegtete code 
There were 10 pages of symbol table space allocated to hold 25 non-local and Local symbols. 
469 source (9nbs were read in Pass 1, producing 14 Aid. records in Pass 2. 
1 page of virtual memory was used to “define 1 macro. 


MT 


.. 3 
BTUSGACOS 3; G Floating Point Arc-cosine routine 
VAX=-11 Macro Run Statistics ° 
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! Macro Library statistics ! 


teem moerenn ere emer re ees ccaee$ 


Macro Library name Macros defined 
_$255SDUA28: CSYSLIBISTARLET. MLB;2 0 
0 GETS were required to define 0 macros. 


There were no errors, warnings or information messages. 
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